home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / ALARM.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  15 lines
  1. 10 (null)55,31488:CLR:(null):(null)0,1:(null)1,1:(null)2,2:(null),8
  2. 12 IFPEEK(31488)+PEEK(31489)<>311THEN:(null)"UHR 31488"
  3. 14 SYS31488:TE$="PLEASE ENTER THE TIME! ":PRINTTE$:(null)TE$:PRINT"TIME ";
  4. 15 OPEN1,0:INPUT#1,A$:CLOSE1:IFASC(A$)=84THENA$=MID$(A$,6)
  5. 16 A=USR(A$):A$="A0715000":A=USR(A$):(null)2,1
  6. 18 (null)"GOOD NITE,SID.I-WILL WAKE YOU UP AT 7 FIFTEEN TOMORROW MORNING."
  7. 20 (null):(null)53265,16:(null)
  8. 22 IF(null)(0)<>1THENA$=USR(A):S$=LEFT$(A$,4):(null)53265,16:GOTO28
  9. 24 GETC$:IFC$<>""THENA$=USR(A):(null)11,15:(null)2,2:PRINTA$:GOTO34
  10. 26 GOTO22
  11. 28 (null)"IT'S TIME TO GET UP SID.THE TIME.IS."
  12. 30 S$=S$+",":(null)S$:W=20000:GOSUB32:GOTO22
  13. 32 FORI=0TOW:NEXT:C$="":RETURN
  14. 34 (null)53265,16:W=900:GOSUB32:(null)2,1:GOTO20
  15.